10 CLR:POKE53280,0:POKE53281,0:POKE53272,21
20 PRINT"[147][156]             WHC ENTERPRISES
25 [153]"OPEN         MC DONALD'S WORD USAGE
30 PRINT"   [163][163][163][163][163][163][163][163][163] TPUG (C)  ED-48 [146][163][163][163][163][163][163][163][163][163][163]"
40 DIMA$(15)
50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
60 INPUT"CHOOSE(1-15):";A$
70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
90 FORT=1TO1500:NEXT:PRINT"[147]  LOADING......  "A$(A)
100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
59999 :
60001 DATA "EXERCISE 1"
60002 DATA "EXERCISE 2"
60003 DATA "EXERCISE 3"
60004 DATA "EXERCISE 4"
60005 DATA "EXERCISE 5"
60006 DATA "EXERCISE 6"
60007 DATA "EXERCISE 7"
60008 DATA "EXERCISE 8"
60009 DATA "EXERCISE 9"
60010 DATA "EXERCISE 10"
60011 DATA "EXERCISE 11"
60012 DATA "EXERCISE 12"
60013 DATA "EXERCISE 13"
60014 DATA "EXERCISE 14"
60015 DATA "TEACHER INFORM"
60020 REM WHC 93:03:20